---------------
--Radio Button Text Cast (gets copied into all radio buttons'  script casts)
-- Revision                      Pre Release
-- Origin Author               ES
-- Origin Date                  3/29/96
-- Revision Date             -
-----------------
on mouseDown
  global radioObjectList
  
repeat with i=1 to count(radioObjectList)
    if radioCheckClickOn(getAt(radioObjectList, i)) =1 then exit repeat
  end repeat
  
end mouseDown